home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / userbox / publicdomain / muiwbpattern / installfr < prev    next >
Encoding:
Text File  |  1996-07-19  |  4.0 KB  |  176 lines
  1. ; $VER: MUIWBPattern Installation Script 1.2 (14.07.96) by Joe Carlson
  2. ; Traduction française par Eric GERARD <egerard@club-internet.fr>
  3.  
  4. ;-----------------------------------------------------------------------------
  5. ; This script may be localized by translating the quoted text below:
  6.  
  7. ; English Texts:
  8. (set InstallText  "Où voudriez-vous que %s soit installé ?")
  9. (set CopyingText  "Copie de %s vers %s en cours...")
  10. (set SelectText   "Merci de sélectionner les fichiers à installer.")
  11. (set ToolText     "Changement de l'outil par défaut de l'icône par %s en cours...")
  12. (set AskText      "Voulez-vous que %s soit installé ?")
  13. (set StartupText  "l'icône Startup")
  14. (set DocText      "la documentation")
  15. (set CatalogText  "les catalogues")
  16. (set TransText    "Résultat du script d'installation de %s :")
  17.  
  18. ;-----------------  Do not edit anything past this line! ---------------------
  19.  
  20. (set ProgramText    "MUIWBPattern")
  21. (set OldProgramText "MUI_WBPattern")
  22. (set QuoteText      "\"%s\"")
  23.  
  24. ; Paths:
  25. (set DefPrefPath  (expandpath "SYS:Prefs"))
  26. (set DefStartPath (expandpath "SYS:WBStartup"))
  27. (set DefLocalePath "Locale:catalogs")
  28.  
  29. (transcript (TransText ProgramText))
  30.  
  31. (complete 0)
  32.  
  33. (set Pref-Path
  34.    (askdir
  35.       (prompt (InstallText (QuoteText ProgramText)))
  36.       (help @askdir-help)
  37.       (default DefPrefPath)
  38.       (newpath)
  39.    )
  40. )
  41.  
  42. (complete 10)
  43.  
  44. (set Startup-Path
  45.    (askdir
  46.       (prompt (InstallText StartupText))
  47.       (help @askdir-help)
  48.       (default DefStartPath)
  49.    )
  50. )
  51.  
  52. (complete 20)
  53.  
  54. (set @default-dest Pref-Path)
  55.  
  56. (set Pref-Name       (tackon Pref-Path ProgramText))
  57. (set Startup-Name    (tackon Startup-Path (cat ProgramText ".info")))
  58. (set OldPref-Name    (tackon Pref-Path OldProgramText))
  59. (set OldStartup-Name (tackon Startup-Path (cat OldProgramText ".info")))
  60.  
  61. ; Rename versions older than 1.2 to new names
  62. (if (exists OldPref-Name)
  63.    (rename OldPref-Name Pref-Name)
  64. )
  65. (if (exists (cat OldPref-Name ".info"))
  66.    (rename (cat OldPref-Name ".info") (cat Pref-Name ".info"))
  67. )
  68. (if (exists OldStartup-Name)
  69.    (rename OldStartup-Name Startup-Name)
  70. )
  71.  
  72. (set First-Time (NOT (exists Pref-Name)))
  73.  
  74. (copyfiles
  75.    (prompt (CopyingText (QuoteText ProgramText) (QuoteText Pref-Path)))
  76.         (source (tackon "Prefs" ProgramText))
  77.    (dest Pref-Path)
  78.    (if First-Time (infos) )   ; Don't loose old tooltypes if updating
  79.    (help @copyfiles-help)
  80. )
  81.  
  82. (complete 30)
  83.  
  84. (if First-Time
  85.    (tooltype
  86.       (dest Pref-Name)
  87.       (noposition)
  88.    )
  89. )
  90.  
  91. (complete 40)
  92.  
  93. (copyfiles
  94.         (prompt (CopyingText StartupText (QuoteText Startup-Path)))
  95.         (help @copyfiles-help)
  96.         (source "WBStartup/MUIWBPattern.info")
  97.         (dest Startup-Path)
  98. )
  99.  
  100. (complete 50)
  101.  
  102. (tooltype
  103.    (prompt (ToolText Pref-Name))
  104.    (dest (tackon Startup-Path ProgramText))
  105.    (setdefaulttool Pref-Name)
  106.    (noposition)
  107. )
  108.  
  109. (if
  110.    (askbool
  111.       (prompt (AskText DocText))
  112.       (help @askbool)
  113.    )
  114. ; Install Docs
  115.    (
  116.       (set Doc-Path
  117.          (askdir
  118.             (prompt (InstallText DocText))
  119.             (help @askdir-help)
  120.             (default @default-dest)
  121.          )
  122.       )
  123.       (complete 60)
  124.       (copyfiles
  125.          (prompt (SelectText DocText Doc-Path))
  126.          (help @copyfiles-help)
  127.          (source "")
  128.          (dest Doc-Path)
  129.          (infos)
  130.          (pattern "#?.guide")
  131.          (confirm 1)
  132.       )
  133.       (complete 70)
  134.       (tooltype
  135.          (dest (tackon Doc-Path "#?.guide"))
  136.          (setdefaulttool
  137.             (if (>= (getversion) 39)
  138.                "Multiview"
  139.                "Amigaguide"
  140.             )
  141.          )
  142.          (noposition)
  143.       )
  144.    )
  145. )
  146.  
  147. (complete 80)
  148.  
  149. (if
  150.    (askbool
  151.       (prompt (AskText CatalogText))
  152.       (help @askbool)
  153.    )
  154. ; Install Catalogs
  155.    (
  156.       (set Cat-Path
  157.          (askdir
  158.             (prompt (InstallText CatalogText))
  159.             (default DefLocalePath)
  160.             (help @default-dest)
  161.          )
  162.       )
  163.       (complete 90)
  164.       (copyfiles
  165.          (prompt (SelectText DocText Doc-Path))
  166.          (help @copyfiles-help)
  167.          (source "Catalogs")
  168.          (dest Cat-Path)
  169.          (all)
  170.          (confirm 1)
  171.      )
  172.   )
  173. )
  174.  
  175. (complete 100)
  176.